home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00245.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.9 KB  |  52 lines
  1. on exitFrame
  2.   global mnv, ppl, foes, advance, pwr, fxpath, bullets
  3.   if getAt(mnv, 1) > 1 then
  4.     if (the keyCode > 124) and (the memberNum of sprite getAt(ppl, 1) < 46) then
  5.       set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  6.       if the keyCode = 126 then
  7.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) - 17
  8.       else
  9.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  10.       end if
  11.       setAt(mnv, 1, getAt(mnv, 1) - 1)
  12.     else
  13.       if (the keyCode > 122) and (the memberNum of sprite getAt(ppl, 1) < 46) then
  14.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  15.         if sprite(getAt(ppl, 1)).flipH = 1 then
  16.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  17.         else
  18.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  19.         end if
  20.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  21.       else
  22.         if getAt(mnv, 1) < 20 then
  23.           set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  24.           setAt(mnv, 1, getAt(mnv, 1) - 1)
  25.         else
  26.           set the member of sprite getAt(ppl, 1) to member(1, 2)
  27.           setAt(mnv, 1, 1)
  28.         end if
  29.       end if
  30.     end if
  31.   else
  32.     if the memberNum of sprite getAt(ppl, 1) < 82 then
  33.       set the member of sprite getAt(ppl, 1) to member(1, 2)
  34.     end if
  35.   end if
  36.   if sprite 5 within getAt(ppl, 1) and (sprite(5).visible = 1) then
  37.     sprite(5).visible = 0
  38.     bullets = bullets + 1
  39.     sound playFile 1, fxpath & "bullets.aif"
  40.   end if
  41.   if advance < 12 then
  42.     foemov(43, 44, 60, 65, 66, 13, 7, 2, 2, 1, 12, 4)
  43.     foemov(162, 163, 175, 180, 181, 16, 7, 3, 3, 2, 11, 6)
  44.     foemov(162, 163, 175, 180, 181, 8, 3, 4, 4, 3, 11, 6)
  45.     strata2(3)
  46.   else
  47.     strata2(3)
  48.   end if
  49.   throweron(15, 5)
  50.   throweron(16, 6)
  51. end
  52.